home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / gs_dps.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  7.8 KB  |  225 lines
  1. %    Copyright (C) 1997, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_dps.ps 8954 2008-08-08 04:22:38Z ray $
  17. % Initialization file for Display PostScript functions.
  18.  
  19. % ------ Errors ------ %
  20.  
  21. % These errors are only defined in DPS.
  22. { /invalidcontext /invalidid } { .registererror } forall
  23.  
  24. % ------ Contexts ------ %
  25.  
  26. % To create a context with private local VM, we use the .localfork
  27. % operator to actually create the context, the new VM, and an empty
  28. % userdict, and then we call the .initlocaldicts procedure to make
  29. % local copies of the initial contents of the dictionaries in local VM.
  30. % savedlocaldicts in systemdict is a global read-only dictionary whose
  31. % elements are global read-only copies of these initial contents;
  32. % we just copy its elements into local VM and install them in systemdict.
  33. % userdict and internaldict require special handling.
  34.  
  35. % Switching between contexts with different local VMs requires
  36. % changing the bindings in systemdict that reference local objects.
  37. % For this purpose, each userdict has an entry called localdicts
  38. % which holds the local copies of the elements of savedlocaldicts,
  39. % plus internaldict.  The context switching code in the interpreter
  40. % effectively copies this dictionary into systemdict.
  41. % NOTE: the name localdicts is known to the interpreter.
  42.  
  43. % Switching between contexts also requires resetting the user parameters.
  44. % The interpreter records the value of userparams (a local dictionary
  45. % referenced from systemdict) for each context, and uses it for this.
  46. % See gs_lev2.ps for more details.
  47. % NOTE: the name userparams is known to the interpreter.
  48.  
  49. % Save copies of local dictionaries at the end of system initialization.
  50. % Also save the initial gstate.
  51. /.savelocalstate {
  52.   .currentglobal true .setglobal
  53.   //systemdict /savedlocaldicts mark //systemdict {
  54.     dup gcheck {
  55.       pop pop
  56.     } {
  57.       dup type /dicttype eq {
  58.         % Save a copy of this dictionary in global VM.
  59.     dup maxlength dict .copydict readonly
  60.       } {
  61.     pop pop
  62.       } ifelse
  63.     } ifelse
  64.   } forall .dicttomark readonly put
  65.         % Create localdicts for the current context.
  66.   false .setglobal
  67.   userdict /localdicts mark savedlocaldicts {
  68.     pop dup load
  69.   } forall /internaldict dup load
  70.   .dicttomark readonly put
  71.         % Save a copy of the initial gstate.
  72.   true .setglobal
  73.   //systemdict /savedinitialgstate gstate readonly put
  74.   .setglobal
  75. } .bind def
  76.  
  77. % Initialize local dictionaries and gstate when creating a new context.
  78. % Note that until this completes, we are in the anomalous situation of
  79. % having systemdict point to dictionaries that are in a non-current
  80. % local VM.  Because of this, we turn off garbage collection temporarily.
  81. /.copylocal {        % <name> <dict> .copylocal <name> <dict'>
  82.         % Copy a dictionary to the current (local) VM,
  83.         % and make it read-only if its current definition is.
  84.   dup maxlength dict .copydict
  85.   1 index load wcheck not { readonly } if
  86. } .bind def
  87. % When this is called, the dictionary stack is in its initial state,
  88. % and there is (anomalously) only one gstate on the gstate stack.
  89. /.initlocaldicts {        % - .initlocaldicts -
  90.   -2 vmreclaim
  91.   .currentglobal //systemdict begin
  92.   false .setglobal
  93.         % Since localdicts doesn't exist yet, references from
  94.         % systemdict to local objects won't get restored if
  95.         % a context switch happens in this code.  Therefore,
  96.         % until localdicts is defined, we have to keep all our
  97.         % state on the operand stack.
  98.  
  99.         % Acquire userdict.
  100.         %****** WRONG IF NON-STANDARD INITIAL DSTACK ******
  101.   countdictstack array dictstack
  102.    { dup gcheck not { exit } if pop } forall
  103.         % Create localdicts with a local copy of each dictionary,
  104.         % except for userdict and userparams, which just need
  105.         % to be filled in.
  106.   mark savedlocaldicts {
  107.     1 index /userdict eq {
  108.         % Stack: userdict mark ... /userdict inituserdict
  109.       counttomark 1 add index .copydict
  110.     } {
  111.       1 index /userparams eq {
  112.         % Stack: userdict mark ... /userparams inituserparams
  113.     userparams .copydict
  114.       } {
  115.     .copylocal
  116.       } ifelse
  117.     } ifelse
  118.   } forall /internaldict dup .makeinternaldict .makeoperator
  119.   .dicttomark readonly /localdicts exch put
  120.         % localdicts is now defined in userdict.
  121.         % Copy the definitions into systemdict.
  122.   localdicts { .forcedef } forall
  123.         % Set the user parameters.
  124.   userparams readonly .setuserparams
  125.         % Establish the initial gstate(s).
  126.   /savedinitialgstate .systemvar setgstate gsave
  127.         % Wrap up.
  128.   end .setglobal
  129. } odef
  130.  
  131. % Check whether an object is a procedure.
  132. /.proccheck {            % <obj> .proccheck <bool>
  133.   dup xcheck
  134.   exch type dup /arraytype eq exch /packedarraytype eq or and
  135. } bind def
  136.  
  137. % Create a context with private local VM.
  138. % The .localfork operator does all the work, but we must ensure that
  139. % .initlocaldicts gets called when the new context starts up.
  140. /localfork {            % <mark> <obj1> ... <objN> <proc>
  141.                 %   <stdin|null> <stdout|null>
  142.                 %   localfork <context>
  143.   .currentglobal true .setglobal 3 index
  144.   dup .proccheck not {
  145.     pop .setglobal /localfork .systemvar /typecheck signalerror
  146.   } if
  147.   {exec .initlocaldicts} aload pop
  148.   3 1 roll 3 packedarray cvx
  149.   4 1 roll 5 -1 roll pop .setglobal .localfork
  150. } odef
  151.  
  152. % Fork a context that shares VM.  The .fork operator creates an empty
  153. % userparams dictionary for the context, but we still need to initialize
  154. % this dictionary when the new context starts up.
  155. /.postfork {        % - .postfork -
  156.     % Initialize the user parameters.
  157.   savedlocaldicts /userparams get userparams .copydict readonly pop
  158. } odef
  159. /fork {            % <mark> <obj1> ... <objN> <proc> fork <context>
  160.   .currentglobal false .setglobal 1 index
  161.   dup .proccheck not {
  162.     pop .setglobal /fork .systemvar /typecheck signalerror
  163.   } if
  164.   {exec .postfork} aload pop
  165.   3 1 roll 3 packedarray cvx
  166.   3 1 roll exch pop .setglobal .fork
  167. } odef
  168.  
  169. % ------ Halftone phase ------ %
  170.  
  171. /sethalftonephase {        % <x> <y> sethalftonephase -
  172.   -1 2 index 2 index .setscreenphase pop pop
  173. } odef
  174. /currenthalftonephase {        % - currenthalftonephase <x> <y>
  175.   0 .currentscreenphase
  176. } odef
  177.  
  178. % ------ Device-source images ------ */
  179.  
  180. .imagetypes 2 /.image2 load put
  181.  
  182. % ------ Device information ------ %
  183.  
  184. /.deviceinfodict mark
  185.   /Colors null /GrayValues null /RedValues null /GreenValues null
  186.   /BlueValues null /ColorValues null
  187. .dicttomark readonly def
  188. /deviceinfo {            % - deviceinfo <dict>
  189.   currentdevice //.deviceinfodict .getdeviceparams .dicttomark
  190.   dup begin
  191.   /ColorValues .knownget {
  192.     0 le
  193.     { currentdict /ColorValues undef }
  194.     {
  195.       % hack around devices that incorrect set GrayValues
  196.       Colors 3 eq { 1 } { GrayValues } ifelse
  197.       RedValues mul GreenValues mul BlueValues mul ColorValues ne
  198.       { currentdict /GrayValues undef
  199.         currentdict /RedValues undef
  200.         currentdict /GreenValues undef
  201.         currentdict /BlueValues undef
  202.       } if
  203.     }
  204.     ifelse
  205.   } if
  206.   currentdict end readonly
  207. } odef
  208.  
  209. % The current implementation allocates a 2-element array each time.
  210. % Perhaps we should change this to 2 separate parameters for X and Y?
  211. /.wtdict mark
  212.   /wtranslation null
  213. .dicttomark readonly def
  214. /wtranslation {            % - wtranslation <x> <y>
  215.   currentdevice //.wtdict .getdeviceparams exch pop exch pop aload pop
  216. } odef
  217. currentdict /.wtdict .undef
  218.  
  219. % ------ View clipping ------ %
  220.  
  221. /rectviewclip {            % <x> <y> <width> <height> rectviewclip -
  222.                 % <numarray|numstring> rectviewclip -
  223.   newpath .rectappend viewclip
  224. } odef
  225.